home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5932.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  32 lines
  1. 5 GOTO10010
  2. 10 DATAWave,"v=ï/T=fï , y=a¥sin2ã(t/T-x/ï)",10,20,
  3. 20 DATAWave of string,v=û(F/“),10,30,1,3E40484830
  4. 30 DATAInterference,"l’-lÆ=(2n+1)ï/2 , l’-lÆ=nï",20,40,
  5. 40 DATAStationary wave,"l=nï/2 , l=(2n-1)ï/4   (n÷0)",30,50,
  6. 50 DATARefraction,n=siné/siní=vÆ/v’=ïÆ/ï’,40,60,
  7. 60 DATANatural frequency (wave),f=(1/2l)¥û(T/“),50,70,1,3E40484830
  8. 70 DATAVelocity of sound,v=331.5+0.61T,60,80,
  9. 80 DATADoppler effect,f=fߥ(v-vÆ)/(v-v’),70,90,
  10. 90 DATABeat,f=fÆ-f’    (fÆ>f’),80,100,
  11. 100 DATAReflectivity,Rß=((nÆ-n’)/(nÆ+n’))ý,90,110,
  12. 110 DATACritical angle,siné=nÆ/n’,100,120,
  13. 120 DATAde Broglie wave,ï=h/mv,110,130,
  14. 130 DATAQuantum condition,2ãr=nh/mv=nï,120,140,
  15. 140 DATAPhotoelectron,1/2¥mvý=h“-W,130,150,1,3E02040830
  16. 150 DATAFrequency condition,h“=Em-En    (m>n),140,160,
  17. 160 DATALight wave,"ï=c/“ , c=2.998*10˜ [m/s]",150,160,1,3E02040830
  18. 10010 MODE8:DIM:x=10:y=160:r=x
  19. 10020 DEFCHR$(255)="424C300806"
  20. 10030 DEFCHR$(253)="2E2A3A0000"
  21. 10050 DEFCHR$(252)="123E020000"
  22. 10110 RESTORE(r)
  23. 10120 CLS:READm$,n$,b,c,d:IFd=1 THENREADd$:DEFCHR$(254)=d$
  24. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  25. 10140 PRINTm$;TAB(l);l$;n$;
  26. 10150 z=ASC(INPUT$(1,@))
  27. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  28. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  29. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  30. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  31. 10280 GOTO10150
  32.